home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / wrkbnch3.pxl < prev    next >
Text File  |  1997-08-07  |  1KB  |  46 lines
  1.      UseCoordinates(PIXEL)
  2.     UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,255)
  3.  
  4.     SetColorPalette(GENERATE)
  5.     
  6.     WinGetActive(Win$)
  7.     Title$ = "RSI Workbench Simulation"
  8.     UseCaption(Title$)
  9.     WinLocate(Title$,300,60,676,340,Res)
  10.     WinShow(Title$,TOPMOST,Res)
  11.     UseBackground(TRANSPARENT,192,192,192)
  12.     DrawBackground
  13.     DirGet(SourceDir$)
  14.  
  15.     InfoMenu(REMOVE)
  16.     WaitInput(100)
  17.     SetMenu("&File",IGNORE,
  18.         "&Save Workbench",CloseWBH,
  19.         "Save Workbench &As",CloseWBH,
  20.         "E&xit",Leave,
  21.         ENDPOPUP)
  22.  
  23.     StatusWindow(ENABLE,BOTTOM,3,150,300,-1,0)
  24.     WinGetClientRect("",cx1,cy1,cx2,cy2)
  25.     DrawShadeRectangle(cx1,cy1,cx2,cy2,0,0,0,0,255,0,TOPBOTTOM)
  26.  
  27.  
  28.     UseFont("Arial",31,47,NOBOLD,NOITALIC,NOUNDERLINE,0,255,255)
  29.     DrawText(20,50,"Transport ...") {300,60,670,340}
  30.  
  31. Wait_for_Input:
  32.     WaitInput()
  33.  
  34. Leave:
  35.     End
  36.  
  37. CloseWBH:
  38.     Filter$ = "Workbench Files (*.wbh),*.wbh"
  39.     InitFile$ = "*.wbh"
  40.     InitDir$ = SourceDir$
  41.     Label$ = "Save the current Workbench"
  42.     FileSaveAs(Filter$,InitFile$,InitDir$,Label$,CHANGEDIR,Name$)
  43.     If Name$ = "" Then Goto Wait_for_Input
  44.     ToolWindow()
  45.     Goto Wait_for_Input
  46.